10 DIMH%(255):IF FRE(0)<>FRE(1) THEN PRINT"C64-MODE ONLY":STOP
20 GOSUB 340
50 PRINTCHR$(147)"REG READOUT"
60 BA=49152
70 FOR I=0 TO 43
80 POKE BA+15,I
90 SYS BA+3
100 B=PEEK(BA+14)
110 PRINT B,;
120 NEXT
130 END
340 CS=0:FOR I=49152 TO 49301
350 READD:POKEI,D:CS=CS+D:NEXT:IF16483<>CS THENPRINTCHR$(147)"DATA DEFEKT":STOP
360 RETURN
370 DATA 76,16,192,76,34,192,76,52
380 DATA 192,76,101,192,0,0,0,0
390 DATA 173,15,192,141,0,214,44,0
400 DATA 214,16,251,173,14,192,141,1
410 DATA 214,96,173,15,192,141,0,214
420 DATA 44,0,214,16,251,173,1,214
430 DATA 141,14,192,96,169,18,141,0
440 DATA 214,44,0,214,16,251,173,13
450 DATA 192,141,1,214,169,19,141,0
460 DATA 214,44,0,214,16,251,173,12
470 DATA 192,141,1,214,169,31,141,0
480 DATA 214,44,0,214,16,251,173,14
490 DATA 192,141,1,214,96,169,18,141
500 DATA 0,214,44,0,214,16,251,173
510 DATA 13,192,141,1,214,169,19,141
520 DATA 0,214,44,0,214,16,251,173
530 DATA 12,192,141,1,214,169,31,141
540 DATA 0,214,44,0,214,16,251,173
550 DATA 1,214,141,14,192,96